home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Games
/
General
/
Mosaicon 1 Folder
/
Mosaïcon
/
MosaÔcon
/
background_2705.xml
next >
Wrap
Extensible Markup Language
|
1994-04-24
|
44KB
|
681 lines
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
<id>2705</id>
<filler1>0</filler1>
<bitmap>BMAP_6703.pbm</bitmap>
<cantDelete> <true /> </cantDelete>
<showPict> <true /> </showPict>
<dontSearch> <false /> </dontSearch>
<link rel="stylesheet" type="text/css" href="stylesheet_3136.css" />
<part>
<id>36</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>22</top>
<right>361</right>
<bottom>364</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>22</top>
<right>132</right>
<bottom>135</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 15end mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>132</left>
<top>22</top>
<right>245</right>
<bottom>34</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 16end mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>246</left>
<top>22</top>
<right>361</right>
<bottom>135</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 17end mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>135</top>
<right>31</right>
<bottom>249</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 13end mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>348</left>
<top>135</top>
<right>361</right>
<bottom>249</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseupclignotement 14end mouseup</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>250</top>
<right>132</right>
<bottom>364</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 10end mouseUp</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>132</left>
<top>352</top>
<right>246</right>
<bottom>364</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 11end mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>246</left>
<top>249</top>
<right>361</right>
<bottom>364</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpclignotement 12end mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>26</left>
<top>29</top>
<right>353</right>
<bottom>356</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>38</textSize>
<textStyle>plain</textStyle>
<name>blanc2</name>
<script></script>
</part>
<part>
<id>48</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>19</left>
<top>22</top>
<right>31</right>
<bottom>34</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Monéchiquier</name>
<script></script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>380</left>
<top>22</top>
<right>392</right>
<bottom>34</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Monéchiquier2</name>
<script></script>
</part>
<part>
<id>50</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>380</left>
<top>141</top>
<right>392</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Mespièces</name>
<script></script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>372</top>
<right>12</right>
<bottom>384</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>BONJOUR</name>
<script></script>
</part>
<part>
<id>54</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>373</left>
<top>0</top>
<right>385</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Niveau2</name>
<script></script>
</part>
<part>
<id>55</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>398</left>
<top>0</top>
<right>410</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Niveau4</name>
<script></script>
</part>
<part>
<id>56</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>360</left>
<top>0</top>
<right>372</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Niveau1</name>
<script></script>
</part>
<part>
<id>57</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>411</left>
<top>0</top>
<right>423</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Niveau5</name>
<script></script>
</part>
<part>
<id>58</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>385</left>
<top>0</top>
<right>397</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Niveau3</name>
<script></script>
</part>
<part>
<id>59</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>423</left>
<top>1</top>
<right>435</right>
<bottom>13</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Niveau6</name>
<script></script>
</part>
<part>
<id>60</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>12</left>
<top>372</top>
<right>24</right>
<bottom>384</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>formes</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>52</id>
<text>Dim 24 Avr 1994</text>
</content>
<name></name>
<script>on idleglobal blocflashif the number of this card < 2 or "Mosa√Øcon" is not in menuitem 1 of menu 1 then exit idleif "navigation" is in menu 5thenif there is no window "navigation"then set the checkmark of menuitem 16 of menu 5 to falseif there is no window "clavier"then set the checkmark of menuitem 17 of menu 5 to falseend ifif 29812 = icon of btn cr√©er and "- -" is not in cd fld coups and line 1 of cd fld coups ‚⧠10 and "oui" is in blocflashthenset hilite of btn id 296 to falseset hilite of btn id 296 to trueif icon of btn id 269 = "0"thenplay stopplay harpsichord tempo 60 82end ifend ifif icon of btn id 269 ‚↠"0" then exit idleif char (the number of chars of the long time)-1 to (the number of chars of the long time) of the long time is in ":00" and the sound is "done"thenplay stopplay merend ifend idleon change1change (the last char of the params)end change1on change2change (the last char of the params)end change2on change3change (the last char of the params)end change3on change4change (the last char of the params)end change4on change5change (the last char of the params)end change5on change6change (the last char of the params)end change6on change xglobal alumget handleItem(Visible,alum+9,hidden)get handleItem(Visible,x+9,show)put x into alumend changeon muserif the commandkey is up then pluselse moinsend museron moinsglobal vagput "" into vagget handleItem(text,17)put it into vagsubtract 1 from vagif vag < 1thenput 6 into vagend ifput "Niveau" & vag into retget handleItem(text,9,the number of lines of fld ret)get handleItem(text,17,vag)if vag ‚↠last word of short name of btn id 294 then get handleItem(ctlhilite,16,1)else get handleItem(ctlhilite,16,0)end moinson plusglobal vagput "" into vagget handleItem(text,17)put it into vagadd 1 to vagif vag ‚â• 7thenput 1 into vagend ifput "Niveau" & vag into retget handleItem(text,9,the number of lines of fld ret)get handleItem(text,17,vag)if vag ‚↠last word of short name of btn id 294 then get handleItem(ctlhilite,16,1)else get handleItem(ctlhilite,16,0)end pluson num√©roget handleItem(ctlvalue,5)if it = 0thenget handleItem(Visible,9,show)get handleItem(text,17)put "niveau" & it into donget handleItem(text,9,the number of lines of fld don)get handleItem(Visible,9,show)end ifend num√©roon codeget handleItem(CtlValue,14)if it = 1thenget handleItem(Visible,18,hidden)get handleItem(visible,10)get handleItem(Visible,11)get handleItem(ctlvalue,12,1)get handleItem(ctlvalue,13,0)get handleItem(Visible,12)get handleItem(Visible,13)elseget handleItem(Visible,18)get handleItem(Visible,10,hidden)get handleItem(Visible,11,hidden)get handleItem(Visible,12,hidden)get handleItem(Visible,13,hidden)end ifend codeon montrer1get handleItem(Visible,2,hidden)get handleItem(Visible,4,show)end montrer1on montrer2get handleItem(Visible,4,hidden)get handleItem(Visible,2,show)end montrer2on quelsonget handleItem(text,5)play stopif it contains "HARPSICHORD"thenplay harpsichordwait until the sound is doneget handleitem(text,5,CLOCHES)else if it contains "CLOCHES"thenplay CLOCHESwait until the sound is doneget handleitem(text,5,COUCOU)else if it contains "COUCOU"thenplay COUCOUwait until the sound is doneget handleitem(text,5,TOUCHE)else if it contains "TOUCHE"thenplay TOUCHEwait until the sound is doneget handleitem(text,5,TRZIM)else if it contains "TRZIM"thenplay trzimwait until the sound is doneget handleitem(text,5,BOING)else if it contains "BOING"thenplay boingwait until the sound is doneget handleitem(text,5,TONG)else if it contains "TONG"thenplay TONGwait until the sound is doneget handleitem(text,5,BZZ)else if it contains "BZZ"thenplay BZZwait until the sound is doneget handleitem(text,5,HARPSICHORD)end ifend quelsonon suivant1get handleItem(Visible,1,hidden)get handleItem(Visible,2,hidden)get handleItem(Visible,6,hidden)get handleItem(Visible,7,hidden)get handleItem(Visible,8,hidden)get handleItem(Visible,9,hidden)get handleItem(Visible,10,hidden)get handleItem(Visible,11,hidden)get handleItem(Visible,3,show)end suivant1on suivant2get handleItem(Visible,3,hidden)get handleItem(Visible,5,show)end suivant2on persocouleurglobal macouleurget handleItem(CtlValue,11)if it = 1thenif macouleur = "" then put colorPicker("Choisissez une couleur‚Ķ ","","40703,40128,40559")into maCouleurelse put colorPicker("Choisissez une couleur‚Ķ ","",macouleur) into maCouleurif maCouleur is empty thenget handleItem(Visible,10,Hidden)get handleItem(CtlValue,11,0)elseget handleItem(CtlValue,11,1)if macouleur = "40703,40128,40559" then get handleItem(Visible,19,show)elseget handleItem(Visible,10,show)get handleItem(Visible,19,Hidden)end ifend ifelseget handleItem(Visible,10,Hidden)get handleItem(Visible,19,Hidden)get handleItem(CtlValue,11,0)end ifend persocouleuron symbolesget handleItem(CtlValue,18)if it = 0 thenget handleItem(Visible,14,hidden)get handleItem(Visible,15,hidden)elseget handleItem(Visible,14,show)get handleItem(Visible,15,show)end ifend symboleson gyro1gyro (the last char of the params),17,24end gyro1on gyro2gyro (the last char of the params),25,32end gyro2on gyro3gyro (the last char of the params),33,40end gyro3on gyro4gyro (the last char of the params),41,48end gyro4on gyro5gyro (the last char of the params),49,56end gyro5on gyro6gyro (the last char of the params),57,64end gyro6on gyro x,y,zglobal numalif x+4 = numal then exit gyroelse put x+4 into numalrepeat with a = z down to yget handleItem(Visible,a,hidden)end repeatrepeat with a = y to zget handleItem(Visible,a,show)end repeatend gyroon amadeus aglobal passerif chartonum of a = 64 then pianote 36,"12 15"else if chartonum of a = 38 then pianote 38,16else if chartonum of a = 142 then pianote 40,17else if chartonum of a = 34 then pianote 41,13else if chartonum of a = 39 then pianote 43,14else if chartonum of a = 40 then pianote 45,10else if chartonum of a = 164 then pianote 47,11else if chartonum of a = 143 then pianote 48,"12 15"else if chartonum of a = 33 then pianote 50,16else if chartonum of a = 141 then pianote 52,17else if chartonum of a = 136 then pianote 53,13else if chartonum of a = 41 then pianote 55,14else if chartonum of a = 45 then pianote 57,10else if chartonum of a = 8 then pianote 59,11else if chartonum of a = 9 then pianote 60,"12 15"else if chartonum of a = 97 then pianote 62,16else if chartonum of a = 122 then pianote 64,17else if chartonum of a = 101 then pianote 65,13else if chartonum of a = 114 then pianote 67,14else if chartonum of a = 116 then pianote 69,10else if chartonum of a = 121 then pianote 71,11else if chartonum of a = 117 then pianote 72,"12 15"else if chartonum of a = 105 then pianote 74,16else if chartonum of a = 111 then pianote 76,17else if chartonum of a = 112 then pianote 77,13else if chartonum of a = 94 then pianote 79,14else if chartonum of a = 36 then pianote 81,10else if chartonum of a = 13 then pianote 82,11else put "oui" into passerend amadeuson pianote x,yglobal partitionplay stopplay harpsichord tempo 60 xif the number of chars of fld mon√©chiquier2 > 29000thenbeepanswer "La partition est pleine." & return & return & "Ex√©cutez-la (bouton vert de la palette) ou effacez-la (bouton orange)."exit pianoteend ifif y = "12 15" then put word random (2) of y into choixelse put y into choixput x & " " & choix & "," after partitionend pianoteon affichageglobal troispart,amusettelock screenif "oui" is in troispartthenput "" into troispartcolorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "mon√©chiquier"colorizeHC "add", t√©l√©commande,item 1 to 2 of rect of fld mespi√®ceselseif "oui" is in amusette then colorizeHC "add","PagedeGarde","-85,-45"else if fld mon√©chiquier ‚↠""then colorizeHC "colorFill","0,0,512,384",fld mon√©chiquiercolorizeHC "add", short name of btn id 278 & "1",item 1 to 2 of rect of fld "mon√©chiquier"colorizeHC "add", short name of btn id 278 & "2",item 1 to 2 of rect of fld "mon√©chiquier2"end ifif short name of btn id 195 contains "card"thenif line 47 of cd fld "sauver" ‚↠""thencolorizeHC "colorFill",rect of btn id 195,line 47 of cd fld "sauver"colorizeHC "colorFill",rect of btn "chrono",line 47 of cd fld "sauver"end ifelsecolorizeHC "colorFill",rect of btn id 195,short name of btn id 195colorizeHC "colorFill",rect of btn "chrono",short name of btn id 195end ifif short name of btn id 352 contains "card"thenif line 48 of cd fld "sauver" ‚↠""thencolorizeHC "colorFill",rect of btn "niveau",line 48 of cd fld "sauver"colorizeHC "colorFill",rect of btn id 294,line 48 of cd fld "sauver"end ifelsecolorizeHC "colorFill",rect of btn "niveau",short name of btn id 352colorizeHC "colorFill",rect of btn id 294,short name of btn id 352end ifif short name of btn id 296 contains "card"thenif line 49 of cd fld "sauver" ‚↠""thencolorizeHC "colorFill",rect of btn id 296,line 49 of cd fld "sauver"colorizeHC "colorFill",rect of btn "compt",line 49 of cd fld "sauver"end ifelsecolorizeHC "colorFill",rect of btn id 296,short name of btn id 296colorizeHC "colorFill",rect of btn "compt",short name of btn id 296end ifif "aide mosa√Øcon" is in the stacks and the enabled of menuitem 1 of menu 4 is truethenset the checkmark of menuitem 1 of menu 4 to truecolorizeHC "add","btnaidealvert",item 1 to 2 of rect of btn id 217end ifif style of btn "BonusMalus" = opaquethen colorizehc "add","btnB/Mal",item 1 to 2 of rect of btn "BonusMalus"if style of btn "inversion" = opaquethen colorizehc "add","btninversional",item 1 to 2 of rect of btn "inversion"if icon of btn id 269 = "0"then colorizehc "add","son" & last char of short name of btn id 269,"477,287"colorizeHC "add",word 1 of short name of btn 1 & "1",rect of btn 26set icon of btn 1 to venisunlock screenend affichageon quelkaleiglobal dest,kalei,aleaif char 1 of last word of item (dest)-1 of cd fld solution = "V"thenput "B J M O R M V B" into kaleielse if char 1 of last word of item (dest)-1 of cd fld solution = "M"thenput "J M R B B O M V, V M O B B R M J" into aleaput item random (2) of alea into kaleielse if char 1 of last word of item (dest)-1 of cd fld solution = "O"thenput "M R B J V B O M" into kaleielse if char 1 of last word of item (dest)-1 of cd fld solution = "B"thenput "R B V M M J B O, O B J M M V B R" into aleaput item random (2) of alea into kaleielse if char 1 of last word of item (dest)-1 of cd fld solution = "J"thenput "B V M R O M J B" into kaleielse if char 1 of last word of item (dest)-1 of cd fld solution = "R"thenput "M O B V J B R M" into kaleiend ifend quelkaleion mn√©moif the checkmark of menuitem 3 of menu 5 = truethenset icon of btn id 230 to "0"set the showname of btn id 230 to falseset hilite of btn id 230 to trueset style of btn id 230 to opaqueshow btn id 230set icon of btn position to "cube"set hilite of btn position to trueset style of btn position to transparentelsehide btn id 230set icon of btn id 230 to "cr√©ation"set hilite of btn id 230 to trueif last word of short name of btn id 294 is in "36"then set icon of btn position to "croix2"else set icon of btn position to "croix"set hilite of btn position to falseend ifshow btn positionend mn√©moon jetd√©sif icon of btn id 269 = "0"thenif "bois" is in short name of btn id 278thenplay stopplay d√©boiselseplay stopplay d√©marbreend ifend ifend jetd√©son marquer xif style of btn id 278 = "opaque" and last char of short name of btn id 294 is in "1245"thenput "@ ≈∏ C x Y ¬Æ I Q X ‚Ä¢ ‚àè $ D ¬ø - ≈í Δí \ ‚Äî ‚Ä° e p ¬™ ¬• d" & " ‚àÜ ‚âà S W ¬£ i F w # o * ¬µ ¬ª ^ P ' ¬ß¬ß + ‚Äì ‚à´ l ‚àë √∑ œÄ" into symbset name of btn x to word random (49) of symbend ifend marqueron fondvert mglobal destcolorizeHC "add","ptbtnV2",rect of btn destcolorizeHC "add",m,rect of btn 1end fondverton appui a,bglobal kalei,dest,lavar,annul,blocdiag,avortdiag,quidiag,blocniv,lenom,combien,libre,ssclr,quelledir,parkalei,unpostinv,annulkalei,annulkalei2,annulkaleim√©mo,reptestput a into quelledirif last word of short name of btn id 294 is in "56"thenget line 2 of cd fld touches && line 4 of cd fld touches && line 5 of cd fld touches && line 7 of cd fld touchesif last word of short name of btn id 294 ‚â• 5 and "oui" is in blocdiag and quidiag is in itthenset showname of btn lavar to falseset showname of btn dest to falseset icon of btn (dest) to MACgrisset icon of btn (dest) to ""set icon of btn (lavar) to Macgrisset icon of btn (lavar) to ""set showname of btn dest to trueif icon of btn id 269 = "0"thenplay stopplay blingend ifrepeat with a = 1 to 4set icon of btn LAVAR to "trembl" & aend repeatset icon of btn lavar to ""set showname of btn lavar to trueget cd fld tempsput "Diagonale" into cd fld tempswait 1 secondsif it = "" then put "- - . - - . - -" into cd fld tempselse put it into cd fld tempsput "oui" into avortdiagput "" into destexit appuiend ifif last word of short name of btn id 294 = 6thenif max (the number of words of item dest-1 of cd fld solution,the number of words of item lavar-1 of cd fld solution) - min (the number ¬¨of words of item dest-1 of cd fld solution,the number of words of item lavar-1 of cd fld solution) > 1thenif last char of item dest-1 of cd fld solution > last char of item lavar-1 of cd fld solutionthenset showname of btn dest to falseset showname of btn lavar to falseset icon of btn dest to macgrisset icon of btn dest to ""if icon of btn id 269 = "0"thenplay stopplay bzzend ifset icon of btn lavar to macgrisset icon of btn lavar to ""repeat with zz = 1 to 5set icon of btn lavar to "cer" & zzend repeatset icon of btn lavar to ""set showname of btn lavar to trueset showname of btn dest to trueget cd fld tempsput "A < B" into cd fld tempswait 1 secondsif it = "" then put "- - . - - . - -" into cd fld tempselse put it into cd fld tempsput "oui" into blocnivput lavar into destexit appuiend ifelse put "" into blocnivend ifend ifput annulkalei into annulkalei2put lavar & return & dest & return & item lavar-1 of cd fld solution & return & item dest-1 of cd fld solution & return & b into annulif "0" = icon of btn id 269 and "-" is not in line b of cd fld notesthenplay stopdo line b of cd fld notesend ifif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠"0"thenput parkalei into kaleisubtract 1 from combienput "B. : " & combien into cd fld tempsend ifif last word of short name of btn id 294 is in "1245"thenput word b of kalei into char 1 of item (lavar)-1 of cd fld solutionelseif the number of words of item (lavar)-1 of cd fld solution = 3thenif last word of short name of btn id 294 = 3thenput "" into item (lavar)-1 of cd fld solutionput word b of kalei after last word of item (lavar)-1 of cd fld solutionelse put " " & word b of kalei & (the number of words of item (lavar)-1 of cd fld solution)+1 after last word of item (lavar)-1 of cd fld solutionelseif last word of short name of btn id 294 = 3thenif item (lavar)-1 of cd fld solution = ""thenput word b of kalei after last word of item (lavar)-1 of cd fld solutionelse put " " & word b of kalei after last word of item (lavar)-1 of cd fld solutionelseif item (lavar)-1 of cd fld solution = ""thenput word b of kalei & "1" after last word of item (lavar)-1 of cd fld solutionelseput " " & word b of kalei & (the number of words of item (lavar)-1 of cd fld solution)+1 after last word of item (lavar)-1 of cd fld solutionend ifend ifend ifend ifset loc of btn 1 to loc of btn destif style of btn id 278 = opaque then set name of btn dest to ""if last word of short name of btn id 294 ‚â• 5thenset showname of btn dest to falseset icon of btn dest to macgriselse set icon of btn 1 to MACgrislock screenif last word of short name of btn id 294 ‚â• 5thenset icon of btn dest to ""set showname of btn dest to trueelse set icon of btn 1 to ""if last word of short name of btn id 294 = 1thencolorizeHC "add",fld mespi√®ces & "btn" & word b of kalei & "2",rect of btn lavarif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn destcolorizeHC "add",a,rect of btn 1elseif combien = "" then colorizeHC "add",a,rect of btn destelse fondvert aend ifelse if item (dest)-1 of cd fld solution = ""thenif last word of short name of btn id 294 < 3thenput word b of kalei into item lavar -1 of cd fld solutioncolorizeHC "add",fld mespi√®ces & "btn" & word b of kalei & "2",rect of btn lavarif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn destcolorizeHC "add",a,rect of btn 1else colorizeHC "add",a,rect of btn destelse if last word of short name of btn id 294 is in "36"thenif the number of words of item lavar-1 of cd fld solution > 3thenif last word of short name of btn id 294 = 6thenif "marbre" is in short name of btn id 278 then put "reprisemarbre" into lenomelse if "standard" is in short name of btn id 278 then put "reprisestandard" into lenomelse put "reprisebois" into lenomif last char of lavar is in "02468"then put "1" after lenomelse put 2 after lenomend ifput "" into item lavar-1 of cd fld solutionput "B J M O R M V B" into kaleielseif last word of short name of btn id 294 = 6thenput word b of kalei & (the number of words of item lavar-1 of cd fld solution) into lenomelse put word b of kalei & 2 into lenomend ifif "reprise" is in lenom and last word of short name of btn id 294 = 6thencolorizeHC "add","btn" & lenom,rect of btn lavarelseif last word of short name of btn id 294 = 3thensend pyram && "," & lavar & "," & (char 1 of last word of item lavar-1 of cd fld solution) & "," & solution to btn jouerelseif last char of the number of btn lavar = 0then send word 10 of fld formes && b & "," & lavar & ",," & "solution" to btn jouerelse send word (last char of the number of btn lavar) of fld formes && b & "," & lavar & ",," & "solution" to btn jouerend ifend ifif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn destcolorizeHC "add",a,rect of btn 1else colorizeHC "add",a,rect of btn destelseget char 2 of item lavar-1 of cd fld solutionif it = ""thenput 0 into subsolelseput char 2 of item lavar-1 of cd fld solution into subsolend ifif (subsol + 1) > 3thenif "marbre" is in short name of btn id 278 then put "reprisemarbre" into lenomelse if "standard" is in short name of btn id 278 then put "reprisestandard" into lenomelse put "reprisebois" into lenomif last char of lavar is in "02468"then put "1" after lenomelse put 2 after lenomput "" into item lavar-1 of cd fld solutionelseput word b of kalei & subsol+1 into lenomput word b of kalei & subsol+1 into item lavar-1 of cd fld solutionend ifif "reprise" is in lenom then colorizeHC "add","btn" & lenom,rect of btn lavarelse colorizeHC "add",fld mespi√®ces & "btn" & lenom,rect of btn lavarend ifput "B J M O R M V B" into kaleiif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn destcolorizeHC "add",a,rect of btn 1else colorizeHC "add",a,rect of btn destif last word of short name of btn id 294 ‚â• 5thenput "" into avortdiagput "" into blocdiagend ifelseif last word of short name of btn id 294 ‚⧠3thenif last word of short name of btn id 294 is in "12"thencolorizeHC "add",fld mespi√®ces & "btn" & word b of kalei & "2",rect of btn lavarquelkaleiif word 7 of kalei = "V"thenif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""thencolorizeHC "add","ptbtn" & ssclr & "2",rect of btn destcolorizeHC "add",a,rect of btn 1else colorizeHC "add",a,rect of btn destput "B J M O R M V B" into kaleielseif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""then colorizeHC "add","ptbtn" & ssclr & "2",rect of btn destelse colorizeHC "add","N" & word 7 of kalei,rect of btn destcolorizeHC "add",a,rect of btn 1end ifelsesend pyram && "," & lavar & "," & (char 1 of last word of item lavar-1 of cd fld solution) & "," & solution to btn jouerif parkalei = "" then quelkaleiif parkalei = "" and (word 7 of kalei = "V" or the number of words of item (dest)-1 of cd fld solution = 3)thenput "B J M O R M V B" into kaleiif combien = "" then colorizeHC "add",a,rect of btn destelse fondvert aelseif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠""then colorizeHC "add","ptbtn" & ssclr & "2",rect of btn destelse colorizeHC "add","N" & word 7 of kalei,rect of btn destcolorizeHC "add",a,rect of btn 1end ifend ifelseif last word of short name of btn id 294 is in "45"thenget char 2 of last word of item (lavar)-1 of cd fld solutionif it + 1 > 3thenif "marbre" is in short name of btn id 278 then put "reprisemarbre" into lenomelse if "standard" is in short name of btn id 278 then put "reprisestandard" into lenomelse put "reprisebois" into lenomif last char of lavar is in "02468"then put "1" after lenomelse put 2 after lenomput "" into item lavar-1 of cd fld solutionif parkalei = ""thenput "B J M O R M V B" into kaleiend ifelseput word b of kalei & it+1 into lenomput word b of kalei & it+1 into item lavar-1 of cd fld solutionend ifelseif the number of words of item lavar-1 of cd fld solution > 3thenif "marbre" is in short name of btn id 278 then put "reprisemarbre" into lenomelse if "standard" is in short name of btn id 278 then put "reprisestandard" into lenomelse put "reprisebois" into lenomif last char of lavar is in "02468"then put "1" after lenomelse put 2 after lenomput "" into item lavar-1 of cd fld solutionif parkalei = ""thenput "B J M O R M V B" into kaleiend ifelseput word b of kalei & (the number of words of item lavar-1 of cd fld solution) into lenomend ifend ifif "reprise" is in lenomthencolorizeHC "add","btn" & lenom,rect of btn lavarelseif last word of short name of btn id 294 < 5thencolorizeHC "add",fld mespi√®ces & "btn" & lenom,rect of btn lavarelseif 5 = last word of short name of btn id 294thencolorizeHC "add",fld mespi√®ces & "btn" & lenom,rect of btn lavarelseif last char of the number of btn lavar = 0then send word 10 of fld formes && b & "," & lavar & ",," & "solution" to btn jouerelse send word (last char of the number of btn lavar) of fld formes && b & "," & lavar & ",," & "solution" to btn jouerend ifend ifend ifput "oui" into blocdiagput "" into avortdiagif parkalei = "" then quelkaleiif 3 is in item dest-1 of cd fld solution or the number of words of item dest-1 of cd fld solution ‚â• 3thencolorizeHC "add","ptbtngris",rect of btn destcolorizeHC "add",a,rect of btn 1if parkalei = ""thenput "B J M O R M V B" into kaleiend ifelseif word 7 of kalei = "V"thenput "B J M O R M V B" into kaleiif combien = "" then colorizeHC "add",a,rect of btn destelse fondvert aelseif the checkmark of menuitem 4 of menu 5 is true and the enabled of menuitem 4 of menu 5 = true and libre ‚↠"" and combien ‚↠"0"then colorizeHC "add","ptbtn" & ssclr & "2",rect of btn destelse colorizeHC "add","N" & word 7 of kalei,rect of btn destcolorizeHC "add",a,rect of btn 1end ifend ifend ifend ifif "interrompre" is in menuitem 1 of menu 2 then set loc of btn position to loc of btn (dest + 50)if item lavar-1 of cd fld solution ‚↠"" then marquer lavarunlock screenif icon of btn id 269 = "0"thenplay stopif "bois" is in short name of btn id 278 then play mouvboiselse play mouvmarbreend ifif last word of short name of btn id 294 is in "36" and visible of btn "jouer1" = false then pyrcoul item (dest)-1 of cd fld combinaisonput annulkalei2 into annulkaleim√©moend appuion pyrcoul zglobal destput "vvert vjaune vorange vrouge vmauve vbleu" into appelrepeat with pyr = 1 to 6set hilite of btn (word pyr of appel) to trueif char 2 of (word pyr of appel) is in z then set hilite of btn (word pyr of appel) to falseend repeatif item dest-1 of cd fld combinaison = "" then put "√∏" into cd fld tempselse put item dest-1 of cd fld combinaison into cd fld tempsend pyrcoulfunction pyraform x,yadd y to item 1 of xadd y to item 2 of xsubtract y from item 3 of xsubtract y from item 4 of xreturn xend pyraformfunction croixform x,y,zif z = 1thenadd y to item 1 of xsubtract y from item 3 of xelseadd y to item 2 of xsubtract y from item 4 of xend ifreturn xend croixform</script>
</background>
(August 1994).iso/Games/General/Mosaicon 1 Folder/Mosaïcon/MosaÔcon/BMAP_4414.png){kind=link}